home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-05-14 | 1.2 KB | 53 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="6"
- "COUNT"="1"
- "UIPATH 1"="Startup/Shutdown\Shutdown\Windows 9x/ME\00) Shutdown Menu"
- "NAME"="Windows 9x Logoff Options"
- "VERSION"="1.24"
- "OSVERSION"="10100"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Show "Restart in MS-DOS mode" in logoff menu"
- "DESCRIPTION 1"="If you want to hide the selection to restart in MS-DOS mode, deactivate the first option."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to AXCEL216 for the setting and CptSiskoX for his help!"
-
-
- sNRM="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\NoRealMode" 'DWORD
- Sub Plugin_Initialize
- i=RegReadValue(sNRM)
- if i=0 or IsEmpty(i) then
- SetUIElement 1,true
- end if
- End Sub
-
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- s=RegReadValue(sNRM)
- if isempty(s)=false then
- Call RegDeleteValue(sNRM)
- end if
- else
- Call RegWriteValue(sNRM,1,2)
- end if
-
-
- Call Restart()
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-